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•Welcome . 



Apple lIGS is one of the best computers Apple had ever 
produced, and through emulation it works perfectly in all modern 
machines. It is very simple to use and allow the young generation 
to do graphics and animation programming easily. 

Welcome to the world of Apple lIGS! 
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Apple lIGS arrived on 15th September 1986 and it is the final 
computer in Apple II series. It is a 16 bit computer and has both 
excellent graphics and music capabilities at that time. 

You can now build up your own Apple lIGS using any Mac or PC 
All you need is just the emulator, an Apple lIGS ROM image 
and a copy of System 6 operating system disk, and you will 
be ready! 

There are a few good Apple lIGS emulators: 

• Mac OS X: Sweet16 

• Mac OS 9: Bernie ][ The Rescue 

• Windows/Linux: KEGS 



Have fun! 
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Graphics Modes 






The time is 1986, where the PC has EGA graphics and the Mac is 
still in monochrome, Apple lIGS has excellent color palette of 
4096 colors! Together, Apple lIGS, Amiga and Atari ST ruled the 
multimedia world. 

Apple lIGS has 2 graphic modes - 320 mode and 640 mode. 320 
mode refers to the graphic resolution 320x200, with 16 colors per 
line. 640 mode refers to the graphic resolution 640x200 (but we 
won't be covering 640 mode here). These resolutions look 
primitive nowadays but they were amazing at that time. 

The 16 colors in the color palette can be changed to any color at 
anytime, allowing for some interesting effects like color cycling. 
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Winners do use tools 



If you have seen an Apple lIGS in action, you might have seen 
the amazing FTA demos in action! FTA team has done all the cool 
demos on a rather slow computer without using programming 
libraries called the Apple lIGS toolbox. 

As the emulated Apple lIGS is often much faster than the real 
thing (a new Mac running emulation can run as fast as 30 to 
100MHz Apple lIGS speed), you can now do the same thing 
using simple toolbox calls. 
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Chapter 2 



Introduction 




There are many programming software for the Apple 
lIGS, including one that is build into the ROM called 
AoDlesoft BASIC. ^ 



i 




However, Applesoft BASIC does not take advantage 
of the Apple lIGS features like Super Hires modes. ~ 
So we will look into other more modern languages. 

m 
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Programming Languages 



GSoft BASIC is the modern version of the Applesoft BASIC 
interpretor that support Apple lIGS features. Orca/Pascal 
supports Object Oriented Programming. 

Complete Pascal (formally TML Pascal II) is probably the best 
solution for development. It has a modern language, support 
Apple lIGS features, good desktop editor, much faster 
performance, and allowing programmer to do full screen graphic 
programming without much technical knowledge. 

We will be using Complete Pascal for all our programming 
examples. We will also be writing in Orca/Pascal and GSoft 
BASIC for comparison purposes. In many GSoft BASIC 
programs, you will need to press CTRL-C to stop the program. 

You can download the development systems which includes 
Complete Pascal, GSoft BASIC and all the sample codes from 
Virtual GS web site (http://virtualgs.larwe.com) . Orca/Pascal can 
be purchased from Syndicomm ( http://store.svndicomm.com) . 

You can learn the Pascal language with books or Learn Pascal 
(http://www.taovue.com/tutorials/pascal/contents.html) tutorial. 
This book will not teach Pascal or BASIC programming. 
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Programming the Apple JIGS 



Once you get everything setup, please type in the following 
program, compile to memory, and what did you see? This is as 
easy as it can be! 

program Pacman; 

uses Types ^ QuickDraw, Events; 
var r: Rect; 



You can then use different libraries in the Apple lIGS toolbox to 
perform different functions. In many cases, you will also need to 
use the Types library as those libraries are dependent on it. 



begin 

graphics ( 320 ) ; 

clearScreen(black) ; 

setSolidPenPat ( 9 ) ; 

setRect(r, 100, 50, 200, 150); 

paintArc(r, 120, 300); 

repeat until button(O); 
end. 

You should always start the program by graphics(320) for 320 
mode or graphics(640) for 640 mode Super Hires. 

The 320 mode has 320x200 resolution with 16 colors palette, 
while 640 mode has 640x200 resolution with 4 colors palette. 
Each screen can have a total of 1 6 palettes from the choice of 
4096 colors. 
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Apple ILGSiToolbox 




The Apple lIGS toolbox contains many libraries and we are only 
describing a few that will be useful for our programming purpose. 

QuickDraw library is the standard graphics library. It has many 
commands that can help you draw many type of shapes. You 
can also change the color palette for each line and the color 
within the palette to use many colors. 

Events library contains commands for you to read mouse and 
keyboard status. 

MiscTool Library contains some miscellaneous commands like 
beeping the speaker or get the system tick count (number of 
60th-second intervals since the system started). 
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Toolbox Commands 



Here are some Toolbox comnnands that we will be using in the 


Draw Oval 


frameOval(rect) 


sample codes. 




Paint Oval 


paintOval(rect) 






Erase Oval 


eraseOval(rect) 


vj(UiCKuraw 




Draw Arc 


frameArc(rect, start angle, arc angle) 


Clear Screen 


clearScreen(color) 


Paint Arc 


paintArc(rect, start angle, arc angle) 


Hide Mouse Pointer 


hideCursor 


Erase Arc 


eraseArc(rect, start angle, arc angle) 


Writp Tpyt 
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Start Polygon 


openPoly 


Set Foreground Text Color 


setForeColor(color) 


End Polygon 


closePoly 


Set Background Text Color 


setDacKUolor(color) 


Check Point In Rectangle 


ptlnRect(point, rect) 


Set Foreground Pen Color 


setooliarenrat(color) 


Get Random Number 


random 


oei DacKgrouna ren uoior 


seiooiiaDacKrancoiorj 


Set Random Seed 


setRandSeed(seed) 


Set Pen Size 


setPenSize(width, height) 


Set Palette (320 mode) 


setSCB(line, palette) 


Set to Default Pen 


penNormal 


Get Color In Palette 


getColorEntry(palette, color) 


Move Pen 


move(x, y) 


Set Color In Palatte 


setColorEntry(palette, color, color value) 


Move Pen to 


moveTo(x, y) 






Draw Line 


line(x, y) 


Events 




Draw Line to 


lineTo(x, y) 


Mouse Button Down 


button(O) 


Set Rectangle Size 


setRect(rect, x1 , y1 , x2, y2) 


Mouse Button Still Down 


stillDown(O) 


Draw Rectangle 


frameRect(rect) 


Get Mouse Location 


getMouse(point) 


Paint Rectangle 


paintRect(rect) 


Get Next Event 


getNextEvent(mask, event) 


Erase Rectangle 


eraseRect(rect) 


MiscTools 




Draw Round Rectangle 


frameRRect(rect, oval width, oval height) 




Paint Round Rectangle 


paintRRect(rect, oval width, oval height) 


System Beep 


sysBeep 


Erase Round Rectangle 


eraseRRect(rect, oval width, oval height) 


Get System Tick 


getTick 
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We will be primary using 320 mode in our sample codes. This 
mean the screen has the resolution of 320 horizontal lines and 
200 vertical lines. Whenever you use a color in 320 mode, you 
will be referencing the color from to 15. 

Here is the color table of the standard palette. 

Black 

1 Dark Grey 

2 Brown 

3 Purple 

4 Blue 

5 Dark Green 

6 Orange 

7 Red 

8 Flesh 

9 Yellow 

10 Green 

11 Light Blue 

12 Lilac 

13 Periwinkle Blue 

14 Light Grey 

15 White 



To reference a point in the 320 mode, you will count from top left 
with the origin point 0, (which means x position is 0, and y 
position is 0) in the top left corner. A point 50, 100 will means 50 
point to the right of the origin, and 100 to the bottom of the 
origin. 

We won't be discussing about the 640 mode as it is more 
complex and will not be used in the sample codes. 




Pictures taken from the Apple lIGS 320 mode 
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Chapter 3 



Programming is supposed to be fun. It is supposed 
to be as easy as sitting down, type a few 
commands, and run to see the result. This is where 
you come to learn all the fun programming! 

In the next chapter, we will follow one young 
programmer on his programming journey! 
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Programming is Fun 



Each sample code will attempt to teach you something, from 
simple to hard, and you will have a chance to learn a simple paint 
program and a space game! 

All the programs are developed and tested on Sweetie emulator 
running on Mac OS X using Complete Pascal. They should work 
on other emulators or the real Apple IIGS. However, the codes 
might be too slow for the original or even the accelerated Apple 



IIGS. 
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Beautiful stars and line arts. 



This program teaches simple QuickDraw commands. 



program Demo; 

uses Types, QuickDraw, Events; 



var 



i, col: Integer; 



begin 



graphics(320); 
hideCursor; 

while true do begin 

clearScreen(black); 

for col := 1 to 15 do begin 
setSolidPenPat(col); 



for i := to 31 do begin 
{ Draw star } 

moveTo(random mod 320, random mod 200); 
line(0, 0); 

{ Draw lines } 

moveTo(i * 10, 0); 



14 



K IBooks Author 



lineTo(0, 200 - i * 7); 
moveTo(320-iM0, 199); 
lineTo(319, i*7); 

end; 

if button(O) then halt; 

end; 

end; 

end. 
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Pacman 




Pacman munching! 

This program teaches simple animation technique, including 
using system tick to maintain animation speed and reduce 
flickering. 



program Pacman; 

uses Types, QuickDraw, Events, MiscTool; 



var 



i, j: Integer; 
tick: Longint; 
r: Rect; 



begin 



graphics ( 320 ) ; 
clearScreen(black) ; 
hideCursor ; 

setSolidBackPat (black) ; 
setSolidPenPat ( 9 ) ; 
tick := getTick; 

{ Draw dots } 



for i := 1 to 15 do begin 

setRect(r, i * 20, 96, i * 20 + 8, 104); 
paintOval ( r ) ; 

end; 

{ Draw Pacman } 

setRect(r, 0, 80, 40, 120); 
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paintArc(r, 120, 300); 
for i := 1 to 80 do begin 
{ Erase Pacman } 

setRect(r, i * 4 - 4 , 80 , i * 4 + 36, 120); 
eraseOval(r ) ; 

{ Move Pacman } 

setRect(r, i * 4, 80, i * 4 + 40, 120); 
if odd(i) then paintArc(r, 100, 340) 
else paintArc(r, 120, 300); 

{ Digest food } 

repeat until getTick - tick > 3; 

tick := getTick; 
if button(O) then exit; 
end; 

end. 
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The is the same program written in GSoft BASIC: 



PAINTARC (R, 100, 340) 



ELSE 



DIM R AS RECT 



PAINTARC (R, 120, 300) 



END IF 



HGR 



HCOLOR= 9 



DO UNTIL GETTICK - TICK > 3 



SETSOLIDBACKPAT ( ) 



LOOP 



TICK = GETTICK 



TICK = GETTICK 



NEXT 



I Draw dots 

FOR I = 1 TO 15 

SETRECT (R, I * 20, 96, I * 20 + 8, 104) 
PAINTOVAL (R) 

NEXT 

I Draw Pacman 

SETRECT (R, 0, 80, 40, 120) 
PAINTARC (R, 120, 300) 

FOR I = 1 TO 80 

! Erase Pacman 

SETRECT (R, I * 4 - 4, 80, I * 4 + 36, 120) 
ERASERECT (R) 

I Move Pacman 

SETRECT (R, 1*4, 80, 1*4+ 40, 120) 
IF I - INT (I / 2) * 2 > THEN 
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Happy Mac 




Little Mac bouncing happily, click on it and it will beep and 
bounce away! 

This program teaches animation technique with more complex 
shape and mouse handling. 



program Mac; 

uses Types, QuickDraw, Events, MiscTool; 



var 



i, X, y, sx, sy, color: Integer; 
tick: Longint; 
r, mac: Rect; 
p: Point; 



begin 



{ Setup } 

tick := getTick; 

X := random mod 280 + 10; 

y := random mod 150 + 10; 

sx := 1; 

sy := 1; 



graphics ( 320 ) ; 
clearScreen(black) ; 
setSolidBackPat (black) ; 

while true do begin 

{ Erase Mac } 
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setSolidPenPat (black) ; 








setRect(r, x + 25, y + 30); 


setRect(r, x+5, y+5, x+ 


20, y 


+ 15); 




eraseRect (r ) ; 


frameArc(r, 90, 180); 










moveTo ( X + 8 , y + 6 ) ; 








{ Handle mouse click } 


line(0, 0); 










moveTo (x + 17, y + 6); 








if button(O) then begin 


line(0, 0); 








getMouse(p) ; 


moveTo (X + 15, y + 23); 










line(7, 0); 








if ptInRect(p, mac) then begin 










sysBeep; 


{ Bounce } 








X : = random mod 280 + 10; 










y := random mod 150 + 10; 


if (X < 0) or (X > 295) then 


sx : = 


-sx; 




sx := -sx; 


if (y < 0) or (y > 170) then 


sy : = 


-sy; 




sy := -sy; 












repeat until getTick > tick; 








while button(O) do; 


tick := tick + 1; 








end 


end; 








else exit; 


end. 








end; 










{ Draw Mac } 










X := X + sx; 










y := y + sy; 










setRect(mac, x, y, x + 25, y + 30); 










setSolidPenPat ( 15 ) ; 










paintRect ( mac ) ; 










setRect(r, x + 2, y + 3, x + 23, y + 18); 










setSolidPenPat (11); 










paintRRect (r , 8, 8); 
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The is the same program written in GSoft BASIC: 



DIM R AS RECT 

TICK = GETTICK 

X = RND (1) * 280 + 10 

Y = RND (1) * 150 + 10 

SX = 1 

SY = 1 



PAINTRRECT (R, 8, 8) 
SETSOLIDPENPAT (0) 

SETRECT (R, X + 5, Y + 5, X + 20, Y + 15) 
FRAMEARC (R, 90, 180) 
HPLOT X + 8, Y + 6 
HPLOT X + 17, Y + 6 

HPLOT X + 15, Y + 23 TO X + 22, Y + 23 
! Bounce 



HGR 

SETSOLIDBACKPAT (0) 



IF X < OR X > 295 THEN SX = - SX 
IF Y < OR Y > 170 THEN SY = - SY 



DO 



I Erase Mac 

SETRECT (R, X, Y, X + 25, Y + 30) 
ERASERECT (R) 

I Move Mac 

X = X + SX 
Y = Y + SY 

I Draw Mac 

SETRECT (R, X, Y, X + 25, Y + 30) 
SETSOLIDPENPAT (15) 
PAINTRECT (R) 

SETRECT (R, X + 2, Y + 3, X + 23, Y + 18) 
SETSOLIDPENPAT (11) 



DO UNTIL GETTICK > TICK 
LOOP 

TICK = TICK + 1 



LOOP 
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Spaceship flying in star field. 

This program teaches the use of array and record to create 
multiple objects. It uses array to generate many stars and 
animate them all at once at different speed. It also teaches how 
to use polygon to draw a shape. 



program Stars; 

uses Types, QuickDraw, Events, MiscTool; 



type 



Star = Record 

X, y, speed: Integer; 

end; 



i: Integer; 
tick: Longint; 
r: Rect; 
poly: Handle; 

stars: Array [0.. 19] of Star; 



begin 



graphics ( 320 ) ; 
clearScreen(black) ; 
hideCursor ; 
tick := getTick; 



{ Draw spaceship } 

setSolidPenPat ( 7 ) ; 
setRect(r, 0, 93, 25, 97); 
paintOval (r ) ; 
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{ Move stars } 


poly := openPoly; 




moveTo (10, 91); 


stars[i].x := stars[i].x - stars [ i ]. speed; 


lineTo(30, 95); 


if stars [i].x < then begin 


lineTo(10, 99); 


stars[i] .x := 319; 


closePoly; 


stars [ i ]. speed := random mod 6+1; 


setSolidPenPat ( 4 ) ; 


end; 


paintPoly (poly ) ; 






{ Draw stars } 


setSolidPenPat ( 5 ) ; 




moveTo ( 8 , 91); 


setSolidPenPat (i mod 15+1); 


line(8, 0); 


moveTo( stars [ i ] .X, stars [i].y); 


moveTo(8, 98); 


line(0, 0); 


line(8, 0); 


end; 


{ Setup stars } 


{ Draw fire } 


for i := to 19 do begin 


if random > then setSolidPenPat ( 9 ) 


stars[i].x := random mod 320; 


else setSolidPenPat ( 7 ) ; 


stars[i].y := i * 10; 




stars [ i ]. speed := random mod 6+1; 


moveTo(5, 94); 


end; 


line(4, 0); 


repeat 


repeat until getTick > tick; 


for i := to 19 do begin 


tick := tick + 1; 




until button(O); 


{ Erase stars } 


end. 


setSolidPenPat (black) ; 




moveTo( stars [ i ] .X, stars [i].y); 




line(0, 0); 
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This is the Orca/Pascal version, using Object Pascal to 






demonstrate object oriented programnning. 


X := X - speed; 






if X < then begin 




program Stars; 


X := 319; 




uses Common, QuickDrawII, EventMgr, MscToolSet; 


speed := randomlnteger mod 6+1; 






end; 




type 






Star = Object 


setSolidPenPat(i mod 15 + 1); 




y^ speed: Integer; 


moveTo ( X , y ) ; 




procedure setup; 


line(0, 0); 




procedure move; 


end; 




end; 








begin 




var 


startDesk( 320 ) ; 




i: Integer; 


clearScreen(black) ; 




tick: Longint; 


hideCursor ; 




r: Rect; 


tick := getTick; 




poly: polyHandle; 






stars: Array [0.. 19] of Star; 


{ Draw spaceship } 




procedure Star. setup; 


setSolidPenPat ( 7 ) ; 




begin 


setRect(r, 0, 93, 25, 97); 




X := randomlnteger mod 320; 


paintOval(r ) ; 




y := i * 10; 






speed := randomlnteger mod 6+1; 


poly := openPoly; 




end; 


moveTo (10, 91); 






lineTo(30, 95); 




procedure Star. move; 


lineTo(10, 99); 




begin 


closePoly; 




setSolidPenPat (black) ; 


setSolidPenPat ( 4 ) ; 




moveTo fx, v ^ • 


paintPoly (poly ) ; 




line(0, 0); 
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setSolidPenPat ( 5 ) ; 
moveTo ( 8 , 91); 
line(8, 0); 
moveTo(8, 98); 
line(8, 0); 



end. 



endDesk; 



for i := to 19 do 



dispose ( stars [ i ] ) ; 



{ Setup stars } 

for i := to 19 do begin 
new( stars [ i ] ) ; 
stars [ i ] . setup; 

end; 

repeat 

{ Move stars } 

for i := to 19 do 
stars [ i ] .move; 

{ Draw fire } 

if random > then setSolidPenPat ( 9 ) 
else setSolidPenPat ( 7 ) ; 

moveTo(5, 94); 
line(4, 0); 

repeat until getTick > tick; 
tick := tick + 1; 
until button ( ) ; 
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This is the star field routine written in GSoft BASIC: 

TYPE STAR 

XAS INTEGER 

Y AS INTEGER 

SPEED AS INTEGER 
END TYPE 


HCOLOR= 1 

HPLOT STARS(I).X, STARS(I).Y 

NEXT 

LOOP 




DIM STARS(15) AS STAR 






! Setup stars 






HGR 

FOR 1 = 1 TO 15 

STARS(I).X = RND(1)*320 
STARS(I).Y = 1 * 12 
STARS(I).SPEED = RND (1) * 6 + 1 

NEXT 






DO 

F0RI = 1 TO 15 






! Erase star 






HCOLOR= 

HPLOT STARS(I).X, STARS(I).Y 






! Draw star 






STARS(I).X = STARS(I).X - STARS(I).SPEED 
IF STARS(I).X < THEN STARS(I).X = 319 
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6 ■ V 

r m .1. 

Bouncing Bails 




Many bouncing balls. 

This program teaches the use of array to create multiple objects. 



program Balls; 

uses Types, QuickDraw, Events, MiscTool; 



type 



Ball = Record 

X, y, sx, sy: Integer 

end; 



i: Integer; 
tick: Longint; 
r: Rect; 
b: Ball; 

balls: Array [1.. 15] of Ball; 



begin 



graphics ( 320 ) ; 
clearScreen(black) ; 
hideCursor ; 
tick := getTick; 
setPenSize ( 3 , 3); 

{ Setup balls } 

for i := 1 to 15 do begin 

balls[i].x := random mod 300 + 10; 
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balls[i].y := random mod 180 + 10; 

if random > then 

balls [i].sx := random mod 2+1 

else 

balls [i].sx := -(random mod 2+1); 


if (balls[i].x < 0) or (balls[i].x > 
then balls[i].sx := -b.sx; 

if (balls[i].y < 0) or (balls[i].y > 
then balls[i].sy := -b.sy; 

end; 


310) 
190) 




if random > then 

balls [i].sy := random mod 2+1 

else 

balls [i].sy := -(random mod 2+1); 

end; 


repeat until getTick > tick; 
tick := tick + 1; 
until button ( ) ; 

end. 






repeat 

for i := 1 to 15 do begin 
b : = balls [ i ] ; 








{ Draw balls } 








setRect(r, b.x, b.y, b.x + 5 + i, 
b . y + 5 + i ) ; 

setSolidPenPat ( i ) ; 
paintOval (r ) ; 

setRect(r, b.x - 2, b.y - 2, b.x+ 7 + i, 
b . y + 7 + i ) ; 
setSolidPenPat (black) ; 
f rameOval ( r ) ; 








{ Move balls } 








balls[i].x := b.x + b.sx; 
balls[i].y := b.y + b.sy; 
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The is the same program written in GSoft BASIC: 














DO 










TYPE BALL 


FOR I = 1 TO 15 










X AS INTEGER 


B = BALLS(I) 










Y AS INTEGER 


SETRECT (R, B.X, B.Y, 


B.X + 5 


+ 


I. 


B.Y +5+1) 


SX AS INTEGER 


SETSOLIDPENPAT (I) 










SY AS INTEGER 


PAINTOVAL (R) 










END TYPE 


SETRECT (R, B.X - 2, 


B.Y - 2, 


B. 


X 


+ 7 + 1, 




B.Y +7+1) 










DIM R AS RECT 


SETSOLIDPENPAT (0) 










DIM B AS BALL 


FRAMEOVAL (R) 










DIM BALLS (15) AS BALL 














BALLS (I).X = B.X + B. 


SX 








HGR 


BALLS (I).Y = B.Y + B. 


SY 








SETPENSIZE (3, 3) 














IF BALLS(I) .X < OR 


BALLS ( I ) 


.X 


> 


310 THEN 


FOR I = 1 TO 15 


BALLS ( I ) . SX = - 


B.SX 








BALLS(I).X = RND (1) * 300 + 10 


IF BALLS(I) .Y < OR 


BALLS ( I ) 


.Y 


> 


190 THEN 


BALLS(I).Y = RND (1) * 180 + 10 


BALLS ( I ) . SY = - 


B.SY 










NEXT 










IF RND (1) > 0.5 THEN 


LOOP 










BALLS ( I ) . SX = INT ( RND ( 1 ) * 2 ) + 1 












ELSE 












BALLS ( I ) . SX = - INT ( RND ( 1 ) * 2 ) - 1 












END IF 












IF RND (1) > 0.5 THEN 












BALLS ( I ) . SY = INT ( RND ( 1 ) * 2 ) + 1 












ELSE 












BALLS ( I ) . SY = - INT ( RND ( 1 ) * 2 ) - 1 












END IF 












NEXT 
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Firework 




This program teaches random number generation. 

The random number will always be the same unless it started on 
a random seed - the current system tick is a good choice. 



program Firework; 

uses Types, QuickDraw, Events, MiscTool; 



type 



Fire = Record 

X, y, xdir, ydir: Integer; 

end; 



if jf X, y, color: Integer; 
tick: Longint; 

fires: Array[0..30] of Fire; 



begin 



graphics ( 320 ) ; 
clearScreen(black) ; 
hideCursor ; 
tick := getTick; 
setRandSeed( tick) ; 



while true do begin 



{ Setup firework } 



setPenSize( 1 , 1); 

color := random mod 15 + 1; 
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X := random mod 320; 

y := random mod 100 + 50; 



moveTo( fires [ j ] .X, fires[j].y); 
line(0, 0); 



for i := to 30 do begin 
fires[i] .x := x; 
fires[i] .y := y; 
f ires [ i ] .xdir := random mod 8 
f ires [ i ] .ydir := random mod 8 

end; 

{ Shoot fire } 



4; 
4; 



fires[j].x := fires[j].x + f ires [ j ]. xdir ; 

fires[j].y := fires[j].y + f ires [ j ] .ydir ; 

setSolidPenPat (color ) ; 

moveTo( fires [ j ] .X, fires[j].y); 

line(0, 0); 

if button(O) then exit; 



end; 



for i := 1 to 30 do begin 

setSolidPenPat (black) ; 
moveTo((i - 1) * x div 30, 
(i - 1) ^ y div 30) ; 
line(0, 0); 

setSolidPenPat (color ) ; 

moveTo(i * x div 30, i * y div 30); 

line(0, 0); 



repeat until getTick > tick; 
tick := tick + 1; 



end; 



clearScreen(black) ; 



end; 



end. 



repeat until getTick - tick > 1; 
tick := getTick; 



end; 



{ Draw firework } 

for i := 1 to 30 do begin 

for j := to 30 do begin 

setPenSize(i div 15 + 1, i div 15+1); 
setSolidPenPat (black) ; 
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This IS the Orca/Pascal version, written using Object Pascal to 


X := X + xdir; 






y := y + ydir; 
setSolidPenPat (color ) ; 
moveTo ( X , y ) ; 




program Firework; 


line(0, 0); 




uses Coimnon, QuickDrawII, EventMgr, MscToolSet; 


end; 




type 


begin 




Fire = Object 


startDesk(320) ; 




X, xdir, ydir: Integer; 


clearScreen( black) ; 




procedure setup ( startX, startY: Integer); 


hideCursor ; 




procedure move; 


tick := getTick; 




end; 


setRandSeed ( tick ) ; 




var 


while true do begin 




i, jf y, color: Integer; 






tick: Longint; 


{ Setup fire } 




fires: Array[0..30] of Fire; 


setPenSize ( 1 , 1); 




procedure Fire. setup; 


color := randomlnteger mod 15+1; 




begin 


X := randomlnteger mod 320; 




X := startX; 


y := randomlnteger mod 100 + 50; 




y := StartY; 






xdir := randomlnteger mod 8-4; 


for i := to 30 do begin 




ydir := randomlnteger mod 8-4; 


new( fires [ i ] ) ; 




end; 


f ires [ i ] . setup(x, y); 

end; 




procedure Fire. move; 






begin 


{ Draw fire } 




setSolidPenPat (black) ; 






moveTo fx, v ^ • 


for i := 1 to 30 do begin 




line(0, 0); 


setSolidPenPat (black) ; 
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moveTo((i - 1) * x div 30, 


The is the same program written in GSoft BASIC: 




(i - 1) * y div 30) ; 






line(0, 0); 


TYPE FIRE 




setSolidPenPat (color ) ; 


X AS INTEGER 




moveTo(i * x div 30, i * y div 30); 


Y AS INTEGER 




line(0, 0); 


XDIR AS INTEGER 






YDIR AS INTEGER 




repeat until getTick - tick > 1; 


END TYPE 




tick := getTick; 






end; 


DIM FIRES (30) AS FIRE 




{ Draw firework } 


TICK = GETTICK 






DO 




for i := 1 to 30 do begin 






for j := to 30 do begin 


1 Setup Firework 




setPenSize(i div 15 + 1, i div 15+1); 






fires [ j ] .move; 


X = RND (1) * 320 




if button(O) then begin 


Y = RND (1) * 100 + 50 




for k := to 30 do 


COLOR = RND (1) * 15 + 1 




dispose ( fires [ i ] ) ; 






endDesk; 


HGR 




halt(O) ; 


FOR I = 1 TO 30 




end; 


FIRES(I) .X = X 




end; 


FIRES(I) .Y = Y 






FIRES(I) .XDIR = RND (1) * 8 - 4 




repeat until getTick > tick; 


FIRES(I) .YDIR = RND (1) * 8 - 4 




tick := tick + 1; 


NEXT 




end; 








I Shoot fire 




clearScreen( black) ; 






end; 


FOR I = 1 TO 30 




end. 


HCOLOR= 
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HPLOT (I-l)*X/30, (I-l)*Y/30 




HCOLOR= COLOR 




HPLOT I*X/30, I*Y/30 




DO UNTIL GETTICK - TICK > 1 




LOOP 




TICK = GETTICK 




NEXT 




I Draw firework 




FOR I = 1 TO 30 




FOR J = 1 TO 30 




HCOLOR= 




HPLOT FIRES(J).X, FIRES(J).Y 




FIRES(J).X = FIRES(J).X + FIRES ( J ) . XDIR 




FIRES(J).Y = FIRES(J).Y + FIRES ( J ) . YDIR 




HCOLOR= COLOR 




HPLOT FIRES(J).X, FIRES(J).Y 




NEXT 




NEXT 




LOOP 
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Crazy Typer 




program CrazyTyper; 
uses Types, QuickDraw, Events; 

{ Handle key } 

procedure handleKey ( key : Integer); 
begin 

setForeColor (random mod 15 + 1); 
moveTo ( random mod 310, random mod 180 + 10); 
drawstring ( chr ( key ) ) ; 

end; 

This program shows any keys typed on keyboard in random 

position and color on screen. ^ Handle mouse } 

It also shows the current mouse position when clicked. Press the procedure handieMouse(p: point) ; 

space bar to clear the screen, and press ESC to quit the 

circle: Rect; 

program. It teaches keyboard and mouse event handling. 

begin 

setSolidPenPat (random mod 15 + 1); 

setRect ( circle, p.h - 3, p.v - 3, p.h + 6, p.v + 6); 

paintOval ( circle ) ; 

end; 
var 

i, key, etypes: Integer; 
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event : EventRecord ; 




begin 

graphics ( 320 ) ; 

clearScreen( black) ; 

setBackColor (black) ; 

etypes := keyDownMask + inDownMask; 




while true do begin 

if getNextEvent ( etypes , event) then begin 
case event. what of 




{ Key down } 




keyDownEvt : begin 

key := event .message; 




case key of 

27: halt; 

32 : clearScreen ( black ) ; 
otherwise handleKey ( key ) ; 

end; 

end; 




{ Mouse down } 




mouseDownEvt : handleMouse ( event . where ) ; 

end; 

end; 

end; 

end. 


36 


K iBooks Author 




Simple Paint 




A simple painting program for l<ids. You can change the paint 
brush size and color. If you press the mouse button long enough, 
the paint brush size will slowly expand to double its size. Press 
space bar to clear the picture and ESC to quit the program. 

This program teaches the use of procedure and event driven 
programming. 



Simple Paint is also available for iPhone, iPad and Android devices. 



program SimplePaint ; 

uses Types, QuickDraw, Events; 

var 

i, X, y, key, bsize, etypes: Integer; 
mouse: Point; 
r, tbar: Rect; 

bsizes: array [1.. 3] of Rect; 
colors: array [0.. 15] of Rect; 
event : EventRecord ; 

{ Draw screen } 

procedure drawScreen; 
begin 

{ Draw title bar } 

clearScreen(black) ; 
setSolidPenPat (white) ; 
setRect(tbar, 0, 0, 319, 20); 
paintRect ( tbar ) ; 

{ Draw brush sizes } 

setSolidPenPat (black) ; 
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for i := 1 to 3 do begin 




procedure 


drawDots(x, y: Integer); 




setRect(bsizes[i] , 5 + (i - 


1) * 8, 5, 


var 






15 + (i - 1) * 8, 15) ; 




ox. 


oy, ix, iy: Integer; 




setPenSize(i * 2, 1); 




size 


: Real; 




moveTo ( i * 8 , 5 ) ; 










line(0, 9); 




begin 






end; 




size 


:= bsize; 




penNormal; 




while button(O) do begin 










getMouse ( mouse ) ; 




{ Draw color bar } 






-LJ- LLKJ L. ir L. J. LLI\.kH^ L. y Lll\J\J.tDKi f L.JJCL1. f L.ilCil JJC^^-Lil 




for i := to 15 do begin 






\ ircL-LllX, UUX, / 




setRect(colors[i] , 35 + i * 


10, 5, 45 + i * 10, 








15); 






ox I — X ; 




setSolidPenPat ( i ) ; 






oy := y; 




paintRect ( colors [ i ] ) ; 






X := trunc (mouse. h - bsize div 2); 




setSolidPenPat ( ) ; 






y := trunc (mouse. V - bsize div 2); 




f rameRect ( colors [ i ] ) ; 






setRect(r, x, y, x + bsize, y + bsize); 




end; 






paintOval(r ) ; 




{ Draw title } 






{ Paint connected dot } 




moveTo(205, 13); 






if (ox <> x) or (oy <> y) then begin 




setForeColor ( 9 ) ; 






size := bsize; 




setBackColor ( 4 ) ; 






ix := (ox + x) div 2; 




drawstring ( ' Simple Paint '); 






iy := (oy + y) div 2; 




setSolidPenPat (white ) ; 






setRect(r, ix, iy, ix + bsize. 




end; 






iy + bsize ) ; 










paintOval(r ) ; 




{ Draw dots } 






end 










else begin 












38 



f( iBooks Author 





end; 


{ Enlarge paint area if pressed } 






{ Mouse down } 


if (size < bsize * 2) then 




size := size + 0.01; 


mouseDownEvt : begin 




mouse := event. where; 


setRect(r^ x - trunc(size / 2), 




y - trunc(size / 2), trunc(x + size). 


{ Set brush size } 


trunc (y + size) ) ; 






for i := 1 to 3 do 


paintOval(r ) ; 


if ptInRect (mouse, bsizes[i]) then 


end; 


bsize := i * 3; 


end; 




end; 


{ Set color } 


end; 






for i := to 15 do 


begin 


if ptInRect (mouse, colors[i]) 


graphics ( 320 ) ; 


then setSolidPenPat ( i ) ; 


bsize := 3; 




etypes := keyDownMask + mDownMask; 


drawDots (mouse. h - bsize div 2, 


drawScreen; 


mouse. V - bsize div 2); 




end; 


while true do begin 


end; 


if getNextEvent (etypes, event) then begin 


end; 


case event. what of 


end; 




end. 


{ Key down } 




keyDownEvt : begin 




key := event .message; 




if key =27 then halt 




else if key = 32 then drawScreen; 
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Slide Show 




A slideshow program to show off the beauty of Apple IIGS. 

This program shows how to load a 320x200 Super Hires picture 
on screen, then fade off. The loadlmage procedure can be used 
as a black box (this means you do not have to understand how it 
works) in any program to load a Super Hires image. 

The fading of the screen is done by reducing the intensity of red, 
green, blue components of all the colors in the palette. 



program Slideshow; 

uses Types, QuickDraw, Events, GSOS, CTIUtils, MiscTool; 



const 



MAX = 7; 



var 

tick: Longint; 
title: Integer; 

titles: array [ . .MAX] of String; 
{ Load Image } 

procedure loadlmage ( path : string); 
var 

openRec: OpenRecGS; 
ioRec: lORecGS; 
closeRec: RefNumRecGS; 
pathNameGS : GSstring255 ; 

begin 



{ Open image } 

p2GSstring ( path , pathNameGS ) ; 
openRec .pCount := 2; 
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openRec . pathName := QpathNameGS ; 




if color < then color := 0; 




openGS ( openRec ) ; 




setColorEntry ( , k, color); 






end; 




{ Read into memory } 










repeat until getTick > tick; 




if _ToolErr = then begin 


tick := getTick; 




ioRec.pCount := 4; 


end; 






ioRec.refNum := openRec . refNum; 








ioRec.dataBuf fer := ptr ( $E12000 ) ; 


cbit 


= cbit div 16; 




ioRec . requestCount := 32768; 


end; 






readOS ( ioRec ) ; 


end; 






closeRec .pCount := 1; 


begin 






closeRec .refNum := openRec . refNum; 


graphics ( 320 ) ; 




closeGS (closeRec ) ; 


hideCursor , 






end; 








end; 


{ Setup } 






{ Fade screen } 


title := 0, 








titles[0] 


= ' Pam.pic ' ; 




procedure fade; 


titles[l] 


= 'Girl. pic ' ; 




var 


titles [2] 


= ' RedHood . pic ' ; 




i, j, k, color, cbit: Integer; 


titles[3] 


= ' Clown. pic ' ; 






titles[4] 


= ' Fruits .pic ' ; 




begin 


titles [5] 


= ' Flower .pic ' ; 




cbit := 256; 


titles[6] 


= ' Taj .pic ' ; 






titles[7] 


= ' Dragon. pic ' ; 




for i := 1 to 3 do begin 








for j := to 15 do begin 


repeat 






for k := to 15 do begin 


tick 


= getTick; 




color := getColorEntry ( , k) - cbit; 


loadImage( titles [title] ) ; 
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repeat 

if button(O) then begin 
fade; 
exit; 

end; 

until getTick - tick > 200; 
tick := getTick; 

inc (title) ; 

if title > MAX then title := 0; 

fade; 
until button ( ) ; 

end. 
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Forever GS 




program ForeverGS; 

uses Types, QuickDraw, Events, MiscTool, ST; 



Apple lIGS Forever! Now you can write your own FTA demo! 

This program teaches psuedo 3D effect, multiple color palettes 
and color cycling. 



This program uses FTA Tool219 to play music, please first install Tool219 to 
the Apple lIGS System folder You can get Tool219 from the Virtual GS disk. 



type 



Star = record 

X, y, sx, sy: Real; 

end; 



i, color, dir: Integer; 
tick: Longint; 
s: Star; 

stars: Array [0.. 20] of Star; 

procedure playMusic ( path : String); 
begin 

loadOneTool (219, ) ; 
stStartup( 57005) ; 
stLoadOneMusic ( path ) ; 
stPlayMusic ( true ) ; 

end; 



procedure stopMusic; 
begin 

stShutDown; 

end; 
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setBackColor (black) ; 


begin 


setForeColor ( 15 ) ; 




moveTo(85, 124); 


{ Setup } 


write ( 'Apple IIGS Forever! ' ) ; 


graphics ( 320 ) ; 


{ Setup stars } 


clearScreen(black) ; 




playMusic( 'Music/Toolbox' ) ; 


for i := to 20 do begin 


setPenMode(modeXOR) ; 


stars[i] .x := 160; 


hideCursor ; 


stars [ i ] .y : = 60 ; 


tick := getTick; 


stars [i].sx := (random mod 41) / 10 - 2; 


dir := -1; 


stars [i].sy := (random mod 41) / 10 - 2; 




end; 


{ Draw background } 






repeat 


setColorEntry(0, 15, 0); 






{ Color cycle title } 


for i := 1 to 15 do 




setColorEntry ( 1 , i, i); 


color := getColorEntry ( , 15); 




if (color = 0) or (color = $F00) then 


for i := 125 to 199 do 


dir := -dir; 


setSCB(i, 1); 






setColorEntry(0, 15, color + $100 * dir); 


setPenSize( 1 , 5); 






{ Color cycle background } 


for i := 1 to 15 do begin 




setSolidPenPat ( i ) ; 


color := getColorEntry ( 1 , 15); 


moveTo(0, 120 + i * 5); 




line(320, 0); 


for i := 15 downto 1 do 


end; 


setColorEntry ( 1 , i, getColorEntry ( 1 , i - 1)); 


setPenSize( 1 , 1); 


setColorEntry ( 1 , 1, color); 
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{ Move stars } 




repeat until getTick - tick > 1; 








tick := getTick; 




for i := to 20 do begin 




until button(O); 




s := stars [i] ; 








setSolidPenPat(i mod 14 + 1); 




stopMusic; 




moveTo ( round ( s . x ) , round ( s . y ) ) ; 




end. 




line(0, 0); 








stars[i].x := s.x + s.sx; 








stars[i].y := s.y + s.sy; 








s : = stars [ i ] ; 








if (s.x < 0) or (s.x > 319) or (s.y 


< 


0) or 




(s.y > 119) then begin 








stars[i] .x := 160; 








stars[i] .y := 60; 








stars [i].sx := (random mod 41) 


/ 


10-2; 




stars [i].sy := (random mod 41) 


/ 


10-2; 




end 








else begin 








{ Accelerate stars movement } 








stars [i].sx := s.sx * 1.1; 








stars [i].sy := s.sy * 1.1; 








end; 








s := stars [i] ; 








moveTo ( round (s.x), round (s.y)); 








line(0, 0); 








end; 














45 


K iBooks Author 



This is the 3D star field routine written in GSoft BASIC: 








I Move Stars 




TYPE STAR 






X 


FOR I = TO 20 




Y 


S = STARS(I) 




SX 


HCOLOR= (1/21)* 15+1 




SY 


HPLOT S.X, S.Y 




END TYPE 








STARS(I) .X = S.X + S.SX 




DIM S AS STAR 


STARS (I).Y = S.Y + S.SY 




DIM STARS (20) AS STAR 


S = STARS(I) 




HGR 


IF (S.X < 0) OR (S.X > 319) OR (S.Y < 0) 




SETPENMODE (MODEXOR) 


OR (S.Y > 199) THEN 






STARS(I) .X = 160 




! Write message 


STARS(I) .Y = 100 






STARS ( I ) . SX = RND ( 1 ) * 4 - 2 




SETBACKCOLOR (0) 


STARS ( I ) . SY = RND ( 1 ) * 4 - 2 




SETFORECOLOR (7) 


ELSE 




MOVETO (85, 100) 






PRINT "Apple IIGS Forever!" 


I Accelerate stars movement 




! Setup stars 


STARS ( I ) . SX = S . SX * 1.1 






STARS ( I ) . SY = S . SY * 1.1 




FOR I = TO 20 


END IF 




STARS(I) .X = 160 






STARS(I) .Y = 100 


HPLOT STARS(I).X, STARS(I).Y 




STARS ( I ) . SX = RND ( 1 ) * 4 - 2 


NEXT 




STARS ( I ) . SY = RND ( 1 ) * 4 - 2 


LOOP 




NEXT 






DO 
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Space Game 




Shoots down the asteroids as they approaches your spaceship! 
The nearer the asteroid, the higher the score! 

This game demonstrates many concepts including array, record, 
procedure, QuickDraw commands, mouse event and collision 
detection technique. 



Space Game has been ported to iPhone, Google Android and Java ME 
phones as Space War 



program Space; 

uses Types, QuickDraw, Events, MiscTool; 



const 



MAX_ROCKS = 5; 



type 



Object = Record 

X, y, speed: Integer; 

end; 



i, j, k, X, y, pos, score: Integer; 
tick: longint; 
mouse: Point; 
r: Rect; 
rock: Object; 

stars: Array[0..31] of Object; 
rocks: Array [ 1 . .MAX_ROCKS ] of Object; 
gameOver: Boolean; 

{ Draw spaceship } 

procedure drawShip; 
begin 

setRect(r, pos, 180, pos + 20, 188); 
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eraseRect ( r ) ; 


moveTo( stars [ i ] .X, stars [i].y); 




getMouse( mouse) ; 


line(0, 0); 




pos := mouse. h; 


end; 




if pos > 300 then pos := 300; 


end; 




setSolidPenPat ( 7 ) ; 


{ Draw rocks } 




setRect(r, pos, 183, pos + 20, 188); 






paintOval (r ) ; 


procedure drawRocks; 




setSolidPenPat ( 4 ) ; 


var 




setRect(r, pos + 5, 180, pos + 15, 185); 


i: Integer; 




paintOval (r) ; 






end; 


begin 






for i := 1 to MAX_ROCKS do begin 




{ Draw stars } 


rock := rocks [i] ; 






setRect(r, rock.x, rock.y, rock.x + 10, 




procedure drawStars; 


rock.y + 10 ) ; 




var 


eraseOval(r ) ; 




i: Integer; 








rocks [i].y := rock.y + rock. speed; 




begin 


if rocks[i].y > 190 then begin 




for i := to 31 do begin 


rocks [i].x := random mod 310; 




setSolidPenPat (black) ; 


rocks [ i ] .y : = ; 




moveTo( stars [ i ] .X, stars [i].y); 


rocks [ i ]. speed := random mod 6+3; 




line(0, 0); 


end; 




stars[i].y := stars[i].y + stars [ i ]. speed; 


rock := rocks [i] ; 




if stars[i].y > 199 then begin 


setSolidPenPat ( 2 ) ; 




stars [ i ] .y : = ; 


setRect(r, rock.x, rock.y, rock.x + 10, 




stars [ i ]. speed := random mod 5+1; 


rock.y + 10 ) ; 




end; 


paintOval (r) ; 






end; 




setSolidPenPat (i mod 15 + 1); 


end; 
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drawRocks ; 


begin 


drawShip; 


{ Setup } 


repeat until getTick > tick; 




tick := tick + 1; 


graphics ( 320 ) ; 




clearScreen(black) ; 


{ Check collision } 


setBackColor (black) ; 




setForeColor ( 9 ) ; 


for i := 1 to MAX_ROCKS do begin 


setSolidBackPat (black) ; 


rock := rocks [i]; 


hideCursor ; 


if (rock.y > 170) and (rock.y < 190) and 




(rock.x > pos) and (rock.x < pos + 20) then 


score := 0; 


begin 


tick := getTick; 




gameOver := false; 


{ Explosion } 


getMouse (mouse ) ; 




pos := mouse. h; 


X := rock.x; 




y := rock.y; 


for i := 1 to MAX_ROCKS do begin 




rocks [i].x := random mod 310; 


for j := 1 to 15 do begin 


rocks [i].y := random mod 100; 


k := j * 5; 


rocks [ i ] . speed : = random mod 3 + 1 ; 


drawStars ; 


end; 


drawRocks ; 




setSolidPenPat ( j ) ; 


for i := to 31 do begin 


setRect(r, x-k, y-k, x+5+k. 


stars[i].x := i * 10; 


y + 5 + k); 


stars [i].y := random mod 200; 


paintOval(r ) ; 


stars [ i ]. speed := random mod 5+1; 




end; 


repeat until getTick - tick > 3; 




tick := getTick; 


repeat 


end; 


drawStars ; 
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end; 



sysBeep; 



gameOver := true; 



setSolidPenPat (black) ; 
moveTo(pos + 10, 0); 
lineTo(pos + 10, 179); 



end; 



end; 

until gameOver; 



{ Fire laser } 



if button(O) then begin 

setSolidPenPat (white) ; 
moveTo(pos + 10, 0); 
lineTo(pos + 10, 179); 



moveTo(50, 90); 

setForeColor ( 9 ) ; 

write ('Game Over. Your Score is 

repeat until button(O); 



score, ' . ' ) ; 



end. 



for i := 1 to MAX_ROCKS do begin 
drawStars ; 
rock := rocks [i] ; 

if (rock.x > pos) and (rock.x < pos + 10) then 
begin 

{ Destroy rock } 



score := score + rocks[i].y div 10; 
setRect(r, rock.x, rock.y, rock.x + 10, 
rock.y + 10 ) ; 
eraseOval ( r ) ; 

rocks [i].x := random mod 310; 
rocks [i] .y := 0; 

rocks [ i ] . speed : = random mod 6 + 3 ; 
leave; 



end; 



end; 
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This is the Orca/Pascal version, written using Object Pascal 


str: String; 




syntax to demonstrate object oriented progrannnning. 








{ Star } 




program Space; 






uses Common, QuickDrawII, EventMgr, MscToolSet; 


procedure Star. setup; 






begin 




const 


X := randomlnteger mod 320; 




MAX_ROCKS = 5; 


y := randomlnteger mod 200; 






speed := randomlnteger mod 5+1; 




type 


color := randomlnteger mod 15+1; 




Star = Object 


end; 




speed, color: Integer; 






procedure setup; 


procedure Star. draw; 




procedure draw; 


begin 




end; 


setSolidPenPat (black) ; 






moveTo(x, y ) ; 




Rock = Object 


line(0, 0); 




y^ speed: Integer; 






procedure setup; 


y := y + speed; 




procedure draw; 


if y > 199 tlien begin 




procedure reset; 


y := 0; 




function hasCollided(pos : Integer): Boolean; 


speed := randomlnteger mod 5+1; 




function hasDestroyed(pos : Integer): Boolean; 


end; 




end; 








setSolidPenPat (color ) ; 




var 


moveTo ( X , y ) ; 




if jf X, y, pos, score: Integer; 


line(0, 0); 




tick: longint; 


end; 




mouse: Point; 






stars: Array [0.. 31] of Star; 


{ Rock } 




rocks: Array [1.. MAX ROCKS] of Rock; 






gameOver: Boolean; 


procedure Rock. setup; 
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begin 


eraseOval ( r ) ; 




X := randomlnteger mod 310; 


X := randomlnteger mod 310; 




y := randomlnteger mod 100; 


y := 0; 




speed := randomlnteger mod 3+1; 


speed := randomlnteger mod 6+3; 




end; 


end; 




procedure Rock. draw; 


function Rock. hasCollided; 




var 


begin 




r: Rect; 


if (y > 170) and (y < 190) and (x > pos ) and 






(x < pos + 20) then hasCollided := true 




begin 


else hasCollided := false; 




setRect(r, x + 10, y + 10); 


end; 




eraseOval(r ) ; 








function Rock. hasDestroyed; 




y := y + speed; 


begin 




if y > 190 then begin 


if (x > pos) and (x < pos + 10) then 




X := randomlnteger mod 310; 


hasDestroyed := true 




y := 0; 


else hasDestroyed := false; 




speed := randomlnteger mod 6+3; 


end; 




end; 








{ Draw spaceship } 




setSolidPenPat ( 2 ) ; 






setRect(r, x, y, x + 10, y + 10); 


procedure drawShip; 




paintOval(r ) ; 


var 




end; 


r: Rect; 




procedure Rock. reset; 


begin 




var 


setRect(r, pos, 180, pos + 20, 188); 




r: Rect; 


eraseRect (r ) ; 




begin 


getMouse (mouse ) ; 




setRect(r, x, y, x + 10, y + 10); 


pos := mouse. h; 
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if pos > 300 then pos := 300; 


{ Draw explosion } 




setSolidPenPat ( 7 ) ; 


procedure drawExplosion(x, y, radius, color: Integer); 




setRect(r, pos, 183, pos + 20, 188); 


var 




paintOval(r ) ; 


r: Rect; 




setSolidPenPat ( 4 ) ; 






setRect(r, pos + 5, 180, pos + 15, 185); 


begin 




paintOval(r ) ; 


setSolidPenPat (color ) ; 




end; 


setRect(r, x - radius, y - radius, x + 5 + radius. 






y + 5 + radius ) ; 




{ Draw stars } 


paintOval(r ) ; 






end; 




procedure drawStars; 






var 


{ Draw laser } 




i: Integer; 








procedure drawLaser (pos , color: Integer); 




begin 


begin 




for i := to 31 do 


setSolidPenPat (color ) ; 




stars [ i ] .draw; 


moveTo(pos + 10, 0); 




end; 


lineTo(pos + 10, 179); 






end; 




{ Draw rocks } 








{ Main } 




procedure drawRocks; 






var 


begin 




i: Integer; 








{ Setup } 




begin 






for i := 1 to MAX_ROCKS do 


startDesk(320) ; 




rocks [ i ] .draw; 


clearScreen(black) ; 




end; 


setSolidBackPat (black) ; 






hideCursor ; 
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score := 0; 




tick := getTick; 


for j := 1 to 15 do begin 


gameOver := false; 


drawStars ; 


getMouse (mouse ) ; 


drawRocks ; 


pos := mouse. h; 


drawExplosion(x, y, j * 5, j); 


for i := to 31 do begin 


repeat until getTick - tick > 3; 


new ( stars [ i ] ) ; 


tick := getTick; 


stars [ i ] • setup; 


end; 


end; 






sysBeep; 


for i := 1 to MAX_ROCKS do begin 


gameOver := true; 


new ( rocks [ i ] ) ; 


end; 


rocks [ i ] . setup; 


end; 


end; 






{ Fire laser } 


repeat 




drawStars ; 


if button(O) then begin 


drawRocks ; 


drawLaser ( pos , white ) ; 


drawShip; 




repeat until getTick > tick; 


for i := 1 to MAX_ROCKS do begin 


tick := tick + 1; 


drawStars ; 


{ Check collision } 


if rocks [ i] .hasDestroyed( pos) then begin 




score := score + rocks[i].y div 10; 


for i := 1 to MAX_ROCKS do begin 


rocks [i] .reset; 


if rocks [ i] .hasCollided( pos) then begin 


end; 




end; 


{ Explosion } 






drawLaser ( pos , black ) ; 


X := rocks [ i] .x; 


end; 


y := rocks[i] .y; 


until gameOver; 
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{ Game over } 

moveTo(60, 90); 
setBackColor (black) ; 
setForeColor ( 9 ) ; 

str := concat ( ' Game Over. Your Score is 

cnvis ( score) , ' • ' ) ; 
drawstring ( str ) ; 
repeat until button(O); 

for i := to 31 do 

dispose ( stars [ i ] ) ; 

for i := 1 to MAX_ROCKS do 
dispose ( rocks [ i ] ) ; 

endDesk; 

end. 
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Chapter 4 




Lim Ding Wen 




- Lim Ding Wen started programming at 7, and he is 
able to code in Applesoft BASIC, GSoft BASIC, % 
Complete Pascal, Orca/Pascal and modern 
languages like Objective C and JavaScript. ^ 

v4.im Ding Wen became the world youngest iPhone 
%jeveloper when he ported his Apple lIGS program 
Doodle Kids to iPhone at the age of 9. 




iBooks Author 



w 




This is Ding Wen first Pascal program developed for Apple IIGS. 

Instead of a simple "Hello World", he demonstrates the 
understanding of Super Hires coordinate system and simple 
QuickDraw commands. 



Program W; 

Uses Types, QuickDraw; 



Begin 



graphics ( 320 ) ; 
hidecursor ; 
clearScreen( ) ; 

moveto (0,0); 
setSolidPenPat ( 7 ) ; 
lineTo(77,199) ; 

setSolidPenPat(15) ; 
lineTo( 155,0) ; 

setSolidPenPat ( 1 ) ; 
lineTo(232,199) ; 



setSolidPenPat ( 3 ) ; 
lineTo(319,0) ; 



readln; 
End. 
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- ■ ■ ■ - V ^-^'r — 

Guessing Game 



^+Oue55fni *** H Dim fci 
Su^&s a number fi om 1 to IDd. 
TfliO 

Guess a number h m 1 to IDl), 
75 

Guess a number Um 1 to lOtf. 
8i 

Too High. 



This is a classic guessing game implemented for Apple IIGS. 

It shows the understanding of various programming concepts 
like loop and decision making. It also shows how to use the 
system tick to do a better random number generation. 



program Guess; 

uses Types, QuickDraw, MiscTool; 
var 

ans, rand, loop, score: Integer; 

begin 

{ Setup } 

graphics ( 640 ) ; 
setRandSeed( getTick) ; 
hidecursor ; 

writeln('*** Guessing Game By: Ding Wen'); 

writeln; 

{ Set varibles } 

loop := 0; 
score := 110; 

rand := random mod 100 + 1; 

while loop <= 10 do begin 
loop := loop + 1; 
score := score - 10; 
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{ Ask question } 




writeln( 'Guess a number from 1 to 100.'); 




readln( ans ) ; 




{ Check answer } 




if ans < rand then 




writeln( 'Too low. ' ) 




else begin 




if ans > rand then 




writeln( 'Too High. ' ) 




else begin 




if ans = rand then begin 




writeln( 'You Win! ' ); 




writeln('You had ' , loop, ' 




tries . ' ) ; 




writeln( 'Good luck next time! ' ) ; 




leave; 




end; 




end; 




end; 




end; 




{ Write score } 




writeln( ' Here is your score :', score, '/lOO'); 




readln; 




end. 
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□ 



n n-r 



This program draws an Apple lIGS computer. 

It demonstrate the uses of various QuickDraw drawing tools. 



program ApplelIGS; 

uses Types, QuickDraw, Events; 



var 



keys, positionX, positionY: integer; 
r: rect; 



begin 



positionX := 60; 
positionY := 70; 

graphics ( 320 ) ; 
hideCursor ; 

{ Draw screen outside } 

setSolidPenPat( 14 ) ; 
setRect(r, 80, 37, 180, 112); 
paintRRect (r , 10, 10); 
setSolidPenPat ( 1 ) ; 
frameRRect (r, 10, 10); 

{ Draw screen } 

setSolidPenPat (11); 
setRect(r, 90, 50, 170, 100); 
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paintRRect (r, 15, 15); 




move ( 2 , ) ; 




setSolidPenPat ( 1 ) ; 




setPenSize( 1 , 1); 




f rameRRect (r, 15, 15); 




line (0,-1) ; 




{ Draw Apple JIGS neck } 




{ Draw keyboard } 




setSolidPenPat ( 14 ) ; 




setSolidPenPat ( 14 ) ; 




setRect(r, 90, 112, 170, 


125); 


setRect(r, 70, 165, 190, 187); 




paintRect (r ) ; 




paintRect (r) ; 




setSolidPenPat ( 1 ) ; 




setSolidPenPat ( 1 ) ; 




f rameRect ( r ) ; 




f rameRect ( r ) ; 




{ Draw base } 




{ Draw keys } 




setSolidPenPat ( 14 ) ; 




for keys:=l to 12 do begin 




setRect(r, 80, 125, 180, 


150); 


positionX := positionX + 10; 




paintRect (r) ; 




positionY := positionY + 10; 




setSolidPenPat ( 1 ) ; 




setSolidPenPat ( ) ; 




f rameRect ( r ) ; 




setRect(r, positionX, 172, positionY, 181); 




setSolidPenPat ( 14 ) ; 




f rameRect ( r ) ; 




setRect(r, 80, 150, 180, 


162); 


end; 




paintRect ( r ) ; 








setSolidPenPat ( 1 ) ; 




{ Draw disk } 




f rameRect ( r ) ; 












setSolidPenPat ( 14 ) ; 




{ Draw logo } 




setRect(r, 180, 125, 240, 150); 








paintRect (r) ; 




setSolidPenPat ( 7 ) ; 




setSolidPenPat ( ) ; 




setPenSize( 5 , 5); 




moveTo(190, 130); 




moveTo(90, 155); 




line ( 35,0) ; 




line(0, 0); 




setSolidPenPat ( 1 ) ; 




move ( , - 1 ) ; 




f rameRect ( r ) ; 
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{ Draw mouse } 

setRect(r, 200, 170, 220, 180); 
setSolidPenPat ( 14 ) ; 
paintRRect (r, 10, 10); 
setSolidPenPat ( 1 ) ; 
f rameRRect (r , 10, 10); 

repeat until button(O); 

end. 
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Moving. Rectangle 




This program draws a moving rectangle. 
It demonstrates animation technique. 



program inovingRect; 

uses Types, QuickDraw, Events, MiscTool; 
var 

x,y, speed: integer; 
tick: longint; 

begin 

X := 0; 

y := 100; 

tick := getTick; 

graphics ( 320 ) ; 

setRandSeed( tick) ; 

speed : = random mod 6 + 1 ; 

clearScreen( ) ; 
hideCursor ; 

{ Draw rectangle } 

setPenSize( 5 , 3 ) ; 
setSolidPenPat ( 7 ) ; 
moveTo ( X , y ) ; 
line(0, 0); 
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repeat 




{ Erase rectangle } 




setSolidPenPat ( ) ; 




inoveTo ( X , y ) ; 




line(0, 0); 




X := X + speed; 




{ Draw rectangle } 




setSolidPenPat ( 7 ) ; 




inoveTo ( X , y ) ; 




line(0, 0); 




if X > 320 then begin 




X := 0; 




sysBeep; 




speed := random mod 6+1; 




y := random mod 197; 




end; 




repeat until getTick > tick; 




tick := tick + 1; 




until button(O); 




end. 
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The car moves and horns! 

It demonstrates the use of procedure, polygons, and complex 
object animation. 



program car; 

uses Types , QuickDraw, Events , MiscTool ; 
var 

x: integer; 
speed: integer; 
poly: handle; 
tick: longint; 
r: rect; 

{ Draw hills } 

procedure drawHills; 
begin 

setSolidPenPat ( ) ; 
poly := openPoly; 
moveTo(0, 100); 
lineTo(106, 50); 
lineTo(159, 100); 
lineTo(212, 50); 
lineTo(265, 100); 
lineTo(318, 50); 
lineTo(371, 100); 
lineTo(0,100) ; 
closePoly; 
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setSolidPenPat(lO) ; 


hideCursor ; 




paintPoly (poly ) ; 


setSolidBackPat ( ) ; 




end; 


setSolidPenPat ( 13 ) ; 






setRect(r, 0, 0, 320, 100); 




{ Draw car } 


paintRect (r) ; 






drawHills ; 




procedure drawCar; 






begin 


repeat 




setSolidPenPat ( 7 ) ; 






setRect(r, x, 145, x + 170, 170); 


{ Draw road } 




paintRect (r ) ; 






setSolidPenPat ( 4 ) ; 


setSolidPenPat ( 1 ) ; 




setRect(r, x + 10, 110, x + 150, 145); 


setRect(r,0, 100,320,200) ; 




paintRect (r) ; 


paintRect (r) ; 




setSolidPenPat ( ) ; 






setRect(r, x + 20, 150, x + 73, 200); 


{ Move car } 




paintOval (r ) ; 






setRect(r, x + 94, 150, x + 147, 200); 


X := X + speed; 




paintOval (r) ; 


drawCar ; 




setSolidPenPat (11); 






setRect(r, x + 15, 115, x + 75, 140); 


repeat until getTick-tick > 5; 




paintRect ( r ) ; 


tick := getTick; 




setRect(r, x + 85, 115, x + 145, 140); 






paintRect (r) ; 


if X > 320 then begin 




end; 


X := 0; 






speed := random mod 6+1; 




begin 


end; 




X := 0; 






tick := getTick; 


if (X > 70) and (x < 90) then 




speed := random mod 6+1; 


sysBeep; 






until button ( ) ; 




graphics ( 320 ) ; 


end. 
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It is snowing! Merry Christmas! 

This program demonstrates the use of type and array, to 
generate multiple objects. This is Ding Wen's first program on 
multiple objects animation. 



program snow; 

uses types , quickDraw, events , miscTool ; 



type 



var 



snow = record 

x: integer; 
y: integer; 
speed: integer; 

end; 



i, slide: integer; 
tick: longint; 

snows: array [ 1 100 ] of snow; 



begin 



tick := getTick; 

graphics ( 320 ) ; 
setRandSeed( getTick) ; 
hideCursor ; 
clearScreen( ) ; 

{ Setup snow } 

for i := 1 to 100 do begin 
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snows[i].x := random mod 320; 

snows [i].y := i * 10; 

snows [ i ]. speed := random mod 10 + 1; 

end; 


repeat until getTick - tick > 5; 
tick := getTick; 
until button(O); 

end. 




repeat 

for i := 1 to 100 do begin 

slide := random mod 11 - 5; 






{ Erase snow } 






setSolidPenPat ( ) ; 

moveTo( snows [ i ] .X, snows [i].y); 

line(0, 0); 






{ Move snow } 






snows [ i ] . y : = snows [ i ] . y + snows [ i ] . speed ; 
snows[i].x := snows[i].x + slide; 






if snows [i].y > 190 then begin 
snows [ i ] .y : = ; 
snows[i].x := random mod 320; 
snows [ i ]. speed := random mod 10 + 1; 

end; 






{ Draw snow } 






setSolidPenPat ( 15 ) ; 

moveTo( snows [ i ] .X, snows [i].y); 

line (0,0) ; 

end; 
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This is Ding Wen's first Object Oriented progrann, written with 


var 




Orca/Pascal. 


slide, speed: integer; 




program snow; 


begin 




uses common , quickDrawII , eventMgr , mscToolSet ; 


speed := randomlnteger mod 20 + 1; 






slide := randomlnteger mod 11 - 5; 




type 






snow = object 


X := X + slide; 




x: integer; 


y := y + speed; 




y: integer ; 






procedure setup; 


if y > 199 then begin 




procedure move; 


X := randomlnteger mod 319; 




procedure draw; 


y := 0; 




procedure erase; 


end; 




end; 


end; 




var 


{ Draw snow } 




i : integer; 






tick: longint ; 


procedure snow. draw; 




snows : array [ 1 300 ] of snow; 


begin 






setSolidPenPat ( 15 ) ; 




{ Setup } 


moveTo ( X , y ) ; 






line(0, 0); 




procedure snow . setup ; 


end; 




begin 






X := randomlnteger mod 319; 


procedure snow. erase; 




y := randomlnteger mod 100; 


begin 




end; 


setSolidPenPat ( ) ; 






moveTo ( X , y ) ; 




{ Move snow } 


line(0, 0); 






end; 




procedure snow. move; 
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begin 




tick := getTick; 




startDesk(320) ; 




setRandSeed( getTick) ; 




hideCursor ; 




clearScreen( ) ; 




{ Setup snow } 




for i := 1 to 300 do begin 




new( snows [ i ] ) ; 




snows [ i ] . setup; 




end; 




repeat 




for i := 1 to 300 do begin 




snows [i] .erase; 




snows [ i ] .move; 




snows [ i ] .draw; 




end; 




repeat until getTick - tick > 5; 




tick := getTick; 




until button ( ) ; 




{ Clear snow } 




for i := 1 to 300 do 




dispose ( snows [ i ] ) ; 




endDesk; 




end. 
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Paddle 



1 1 w**: 1 a n k p 




program Paddle; 

uses types , quickDraw, events , miscTool ; 



This is Ding Wen's first graphical game! 

This game is modeled after the famous Pong, and it is designed 
and written completely by himself without external help. 



var 



pos: integer; 
pos2: integer; 
types: integer; 
key: integer; 
score: integer; 
life: integer; 
event : eventRecord ; 
r: rect; 
mouse: point; 
tick: longint; 
x: integer; 
y: integer; 
x2 : integer; 
y2 : integer; 
sx: integer; 
sy: integer; 
gameOver: boolean; 
ball: rect; 



{***Erase All***} 



procedure eraseAll; 
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begin 


{***Draw ball***} 




setSolidPenPat ( ) ; 






setRect(r, pos, 195, pos2, 200); 


procedure drawBall; 




paintRect (r ) ; 


begin 




setRect(r, x2 , y2 ) ; 


setSolidPnPat ( 7 ) ; 




paintOval(r ) ; 


setRect (ball, x, y, x2 , y2 ) ; 




end; 


paintOval ( ball ) ; 






end; 




{***Draw paddle***} 








{***V7ait***} 




procedure drawPaddle; 






begin 


procedure wait ( time : longint ) ; 




getMouse (mouse ) ; 


begin 






repeat until getTick-tick > time; 




pos := mouse. h; 


tick := getTick; 




pos2 := pos + 30; 


end; 




if pos < then begin 


{***Check collision***} 




pos := 0; 






pos2 := 30; 


procedure checkCollision; 




end; 


begin 






if (X > pos) and (x < pos2) and (y2 > 195) 




if pos2 > 320 then begin 


and (y < 200) then begin 




pos := 290; 


sy := -sy; 




pos2 := 320; 


score := score + 10; 




end; 


sysBeep; 






end 




setSolidPenPat ( 15 ) ; 


else if y > 220 then begin 




setRect(r, pos, 195, pos2, 200); 


life := life - 1; 




paintRect (r) ; 


X := 160; 




end; 


y := 100; 






x2 := 165; 
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y2 := 105; 


tick := getTick; 




sysBeep; 


X := 160; 




end; 


y := 100; 






x2 := 165; 




if (X < 0) or (x2 > 320) then begin 


y2 := 105; 




sx := -sx; 


gameOver := false; 




sysBeep; 


types := keyDownMask; 




end; 


sx : =5; 






sy := 5; 




if (y < 10) then begin 


end; 




sy := -sy; 






sysBeep; 


begin 




end; 


setup; 




end; 








graphics ( 320 ) ; 




{***Write numbers***} 


hideCursor ; 






clearscreen( ) ; 




procedure writeScore; 


setBackColor ( ) ; 




begin 


setForeColor ( 12 ) ; 




moveTo ( , 10); 


moveTo( 0,100) ; 




writeln( ' lives :' , life); 






moveTo (80, 10); 


repeat 




writeln('any key: stop'); 


wait ( 1 ) ; 




moveTo(240, 10); 


eraseAll; 




writeln ( ' score : ' , score ) ; 






end; 


{***Move ball***} 




{***Setup***} 


X := X + sx; 






y := y + sy; 




procedure setup; 


x2 := x2 + sx; 




begin 


y2 := y2 + sy; 




life := 2; 
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{***Draw objects***} 

drawP addle ; 

drawBall; 

writeScore; 

if getNextEvent (keyDownMask, event) then 

if event. what = keyDownEvt then halt; 

checkCollision; 

{***Game over! I I***} 

if life=-l then gameOver := true; 
until gameOver; 

setForeColor ( 7 ) ; 
moveTo(120, 100); 
writeln( 'GAME OVER! ' ) ; 
repeat until button(O); 
sysBeep; 

end. 
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Doodle.Kids 




Ding Wen's first event driven program - a full screen painting 
program for kids that draw random shapes and colors! 

Press Delete key to clear the picture and Space key to do color 
cycling! Press ESC key to quit the program. 

This program is written for his younger sisters. It is designed and 
written completely by himself. 

Doodle Kids is now available for iPhone, iPad and Android! 



program DoodleKids; 

uses Types, Quickdraw, Events, miscTool; 
var 

etypes, color : integer; 

key, size, shape, x, y, i : integer; 

event : eventRecord; 

mouse : point; 

tri : handle; 

rec : rect; 

animate, draw : boolean; 
tick : longint; 

{ Color cycle } 

procedure cycle; 
begin 

if animate then begin 

color := getColorEntry ( , 1); 
for i := 1 to 14 do 

setColorEntry ( , i, 
getColorEntry(0, i + 1)); 
setColorEntry ( , 15, color); 

end; 

end; 
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{ start drawing } 


5 : begin 














moveTo(x + size 


div 


2, 


Y + size 


div 


2); 


procedure startDraw; 


lineTo(x - size 


div 


2. 


y - size 


div 


2); 


begin 


end; 












if draw then begin 


6 : begin 












size := random mod 9+3; 


moveTo(x - size 


div 


2, 


y + size 


div 


2); 


getMouse (mouse ) ; 


lineTo(x + size 


div 


2, 


y - size 


div 


2); 


X := mouse. h; 


end; 












y := mouse. v; 


7: paintPoly ( tri ) ; 














8: f ramePoly ( tri ) ; 












setSolidPenPat (random mod 15 + 1); 


9 : begin 














moveTo(x + size 


div 


2. 


y + size 


div 


2); 


if shape < 5 then 


lineTo(x - size 


div 


2, 


y - size 


div 


2); 


setRect(rec, x - size div 2, 


moveTo(x - size 


div 


2, 


y + size 


div 


2); 


y - size div 2, x + size div 2, 


lineTo(x + size 


div 


2, 


y - size 


div 


2); 


y + size div 2 ) ; 


moveTo(x - size 


div 


2, 


y); 








line(size, 0); 












if (shape > 6) and (shape < 9) then begin 


moveTo(x,y - size div 


2); 






tri := openPoly; 


line ( f size ) ; 












moveTo(x - size div 2, y + size div 2); 


end; 












line(size, 0); 


end; 












lineTo(x, y - size div 2); 


end; 












closePoly; 


end; 












end; 
















begin 












{ Draw shape } 


etypes := keyDownMask + mDownMask + mUpMask; 








tick := getTick; 












case shape of 














1: paintOval(rec) ; 


{ Setup } 












2: paintRect (rec ) ; 














3: f rameOval ( rec ) ; 


graphics ( 320 ) ; 












4: f rameRect (rec ) ; 


clearScreen( ) ; 
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end; 




while true do begin 






startDraw; 


mouseUpEvt: draw := false; 




if getTick - tick > 9 then begin 


end; 




tick := getTick; 


end; 




cycle; 


end; 




end; 


end. 




if getNextEvent(etypes, event ) then begin 






case event. what of 






{ Keys } 






keyDownEvt : begin 






key := event .message; 






case key of 






27: halt; 






32: begin 






if not animate then 






animate := true 






else animate := false; 






end; 






127: clearScreen( ) ; 






end; 






end; 






{ Mouse } 






mouseDownEvt : begin 






shape := random mod 9+1; 






draw := true; 
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Invader War 




program InvaderWar; 

uses Common, QuickDrawI I ,EventMgr,MscToolSet; 



type 



star = object 

x,y, speed : integer; 
procedure setup; 
procedure draw; 

end; 



Ding Wen's first space game is written in Orca/Pascal. 




Lim Ding Wen shows his game Invader War. 
Invader War is also available for iPhone and iPad. 



var 



invader = object 

x,y ,bx, by , speed : integer; 
f shoot : boolean; 
procedure setup; 
procedure draw; 
procedure bang; 
procedure fire; 

end; 



i , posX , posY , etypes , bulletX , bulletY , score : integer ; 

stars: array [1.. 10] of star; 

invaders : array [ 1 . . 5 ] of invader ; 

tick, key: longint; 

event : eventRecord ; 

shippoly, f ire: polyHandle; 



78 



K iBooks Author 



gameOver, shoot : boolean; 


mouse : point; 




str: string; 








begin 




procedure explode; 


setSolidPenPat ( ) ; 




var 


paintPoly ( shippoly ) ; 




a^ex^ey: integer; 


paintPoly ( fire ) ; 




r: rect; 






str: string; 


getMouse( mouse) ; 






posX := mouse. h; 




begin 


posY := mouse. v; 




sysBeep; 








if posX < 20 then posX := 20; 




for a := 1 to 15 do begin 


if posY < 20 then posY := 20; 




setSolidPenPat ( a ) ; 


if posY > 195 then posY := 195; 




ex := randomlnteger mod 20 + (posX - 30); 






ey := randomlnteger mod 20 + (posY - 20); 


shippoly := openPoly; 




setRect (r ,ex,ey,ex + 20, ey + 20); 


moveTo ( posX , pos Y ) ; 




paintOval(r ) ; 


lineTo(posX-20, posY-7) ; 




tick := getTick; 


line(0,14) ; 






lineTo ( posX , posY ) ; 




repeat until getTick - tick > 1; 


closePoly; 




end; 








setSolidPenPat ( 7 ) ; 




moveTo(75, 100); 


paintPoly ( shippoly ) ; 




str := concat('Game Over. Score:', cnvis ( score )) ; 






drawstring ( str ) ; 


fire := openPoly; 




repeat until button(O); 


moveTo ( posX-2 , posY-7); 




gameOver := true; 


line(0, 14); 




end; 


lineTo(posX-25, posY) ; 






lineTo (posX-20, posY-7) ; 




procedure drawShip; 


closePoly; 




var 


setSolidPenPat (randomlnteger mod 2*6); 
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paintPoly ( fire ) ; 


line (10,0) ; 




end; 


moveTo (X + 5 , y + 10); 






line (10,0) ; 




procedure bangShip; 






var 


X := X - speed; 




i: integer; 


if posY < y + 2 then y := y - 1; 






if posY > y then y := y + 1; 




begin 






for i := 1 to 15 do 


if X < then begin 




if ( invaders [ i ] .X < posX) and 


X := 320; 




( invaders [ i ] .X > posX - 35) and 


y := randomlnteger mod 200; 




( invaders [ i ] .y < posY + 7) and 


end; 




( invaders [ i ] .y > posY - 12) then explode; 






end; 


setSolidPenPat (11); 






setRect(r, x ,y, x + 15, y + 10); 




procedure invader . setup; 


paintOval ( r ) ; 




begin 


setSolidPenPat ( 6 ) ; 




X := randomlnteger mod 100 + 220; 


moveTo ( X + 5 , y ) ; 




y := randomlnteger mod 185 + 15; 


line (10,0) ; 




end; 


moveTo (X + 5 , y + 10); 






line (10,0) ; 




procedure invader . draw ; 


end; 




var 






r: Rect; 


procedure invader . bang; 






var 




begin 


r: Rect; 




speed := randomlnteger mod 3+1; 








begin 




setSolidPenPat ( ) ; 


if shoot then begin 




setRect (r ,x,y^x+15 ,y+10 ) ; 


setSolidPenPat ( ) ; 




paintOval ( r ) ; 


moveTo (bulletX, bulletY) ; 




moveTo ( X + 5 , y ) ; 


line(-10, 0); 
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bulletX := bulletX + 3; 


setSolidPenPat ( ) ; 


setSolidPenPat (10); 


moveTo ( bx , by ) ; 


moveTo ( bulletX , bulletY ) ; 


line (5,0) ; 


line(-10, 0); 


bx : = bx - 5 ; 




setSolidPenPat ( 14 ) ; 


if (bulletY > y - 2) and (bulletY < y + 12) 


moveTo ( bx , by ) ; 


and (bulletX > x - 1) 


line (5,0) ; 


and (bulletX < x + 16) then begin 


if (bx < posX) and (bx > posX - 25) and 


setSolidPenPat ( 15 ) ; 


(by < posY + 5) and (by > posY - 5) then 


setRect(r, x - 10, y - 10, x + 20, y + 20); 


explode; 


paintOval(r ) ; 




score := score + (320 - (x - posX) ) div 10; 


if bx < -5 then fshoot := false; 


tick := getTick; 


end; 


repeat until getTick - tick > 5; 






if not fshoot then begin 


setSolidPenPat ( ) ; 


if (y + 3 > posY - 5) and (y + 3 < posY + 5) then 


paintOval (r ) ; 


begin 




bx := x; 


X := 320; 


by := y + 3; 


y := randomlnteger mod 200; 


fshoot := true; 


moveTo ( bulletX , bulletY ) ; 


end; 


line(-5,0) ; 


end; 


shoot := false; 


end; 


end; 






procedure star. setup; 


if bulletX > 330 then shoot := false; 


begin 


end; 


X := randomlnteger mod 320; 


end; 


y := randomlnteger mod 185 + 15; 




speed := randomlnteger mod 6+1; 


procedure invader . fire; 


end; 


begin 




if fshoot then begin 


procedure star. draw; 
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begin 


for i := 1 to 5 do begin 




setSolidPenPat ( ) ; 


new ( invaders [ i ] ) ; 




moveTo ( X , y ) ; 


invaders [ i ] . setup; 




line (0,0) ; 


end; 




X := X - speed; 


repeat 




if X < then begin 


for i := 1 to 10 do stars [ i ]. draw; 




X := 320; 


for i := 1 to 5 do invaders [ i ]. draw; 




speed := randomlnteger mod 6+1; 


for i := 1 to 5 do invaders [ i ]. bang; 




end; 


for i := 1 to 5 do invaders [ i ]. fire; 




setSolidPenPat ( i ) ; 


drawShip; 




moveTo ( X , y ) ; 


bangShip; 




line (0,0) ; 






end; 


if getNextEvent( etypes, event ) then begin 






case event . eventwhat of 




begin 


keyDownEvt : begin 




etypes := keyDownMask + mDownMask; 


key := event . eventMes sage; 




tick := getTick; 


if key =27 then 






gameOver := true; 




startDesk(320) ; 


end; 




hideCursor ; 






clearScreen( ) ; 


mouseDownEvt : begin 




setForeColor ( 9 ) ; 


if not shoot then begin 




setBackColor ( ) ; 


shoot := true; 




setRandSeed( tick) ; 


bulletX := posX; 






bulletY := posY; 




for i := 1 to 10 do begin 


end; 




new ( stars [ i ] ) ; 


end; 




stars [ i ] . setup; 


end; 




end; 


end; 
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moveTo(10,10) ; 

str := concat( ' Score: cnvis ( score )) ; 
drawstring ( str ) ; 
repeat until getTick > tick; 
tick := tick + 1; 
until gameOver; 

for i := 1 to 15 do 

dispose ( stars [ i ] ) ; 

for i := 1 to 5 do 

dispose ( invaders [ i ] ) ; 

endDesk; 

end. 



83 



K iBooks Author 



What's Next? 
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...1 . 4 " * 

_ ■ * - I _ 

•More programming languages 



Although Pascal or BASIC are both great programming 
languages for learning, they are no longer widely used. So what 
programming languages should you learn? 

Here are some possibilities: 

• JavaScript: the language used for the web. You can use 
JavaScript and HTML5 to create a web app. 

• ActionScript: the language used for Flash development. You 
can use ActionScript to create Flash application. 

• Objective-C: the language used for iOS and Mac development. 
You can use Objective-C to create iPhone, iPad and Mac 
applications. 

No matter what languages you choose, you already have the 
knowledge to learn yet another one! 




Lim Ding Wen and his iPhone app. 
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Apple II 



The Apple II is a set of 8-bit 
home computers, one of the 
first highly successful mass- 
produced microcomputer 
products, designed primarily 
by Steve Wozniak, 
manufactured by Apple 
Computer (now Apple Inc.) 
and introduced in 1977. 
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Apple lIGS 




Apple lIGS arrived on 15th 
September 1986 and it is the 
final computer in Apple II series. 
It is a 16 bit computer and has 
both excellent graphics and 
music capabilities at that time. 



Related Glossary Terms 
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BASIC Programming Language 

BASIC is a family of general-purpose, high-level programming languages whose design 
philosophy emphasizes ease of use - the name is an acronym from Beginner's All- 
purpose Symbolic instruction Code. 
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Complete Pascal 

Complete Pascal (formerly TML Pascal II) is a native code Pascal compiler for the Apple 
lIGS which provides an elegant yet powerful programming environment that lets you write, 
edit, compile and run applications and desk accessories using the Apple lIGS Toolbox with 
incredible speed and simplicity 
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GSoft BASIC 

GSoft BASIC let anyone write BASIC 
programs specific to the Apple lIGS and 
using its toolbox and other native lIGS 
features. 
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Object Pascal 

Object Pascal is an extension of tine Pascal language that was developed at Apple 
Computer by a team led by Larry Tesler in consultation with Niklaus Wirth, the inventor of 
Pascal. 
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Orca/Pascal 

ORCA/Pascal is a complete Pascal 
language development system for the 
Apple lIGS computer. 
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Pascal Programming Language 

Pascal is an influential imperative and procedural programming language, designed in 
1968/9 and published in 1970 by Niklaus Wirth as a small and efficient language intended 
to encourage good programming practices using structured programming and data 
structuring. 
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